home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / G-CIRCUM.UNT < prev    next >
Text File  |  1996-07-04  |  1KB  |  40 lines

  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢                      │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   G-CIRCUM.UNT ║                      ╘════════════════─ ║ ║
  6.  │  │ LIBRARY     DAS-NB03.PBL ║                                         ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  9.    ╘═══════════════════════════════════════════════════════════════════════╝
  10. $endif
  11.  
  12. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  13. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  14.  
  15. $if 1
  16.   $CODE SEG        "DAS_NB03"
  17.   $EVENT            OFF
  18.   $ERROR ALL        OFF
  19.   $OPTIMIZE         SIZE
  20.   $OPTION GOSUB     OFF
  21.   $OPTION CNTLBREAK OFF
  22.   $OPTION SIGNED    OFF
  23.   $DEBUG  MAP       OFF
  24.   $DEBUG  PATH      OFF
  25.   $DEBUG  UNIT      OFF
  26.   $COMPILE          UNIT
  27. $endif
  28.  
  29.   EXTERNAL pPi#
  30.  
  31. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  32. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  33.  
  34. FUNCTION fCircum#( BYVAL Diameter# ) LOCAL PUBLIC
  35.  
  36.   FUNCTION = ( Diameter# * pPi# )
  37.  
  38. END FUNCTION
  39.  
  40.